﻿Public Class MessageWindow

    Private cnt As Integer
    Private isBrink As Boolean

    Public isOpened As Boolean = False

    Private Sub MessageWindow_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        isOpened = True
        cnt = 100
        isBrink = True
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        isBrink = Not isBrink
        If isBrink Then
            Me.BackColor = Color.LightYellow
        Else
            Me.BackColor = Color.Cyan
        End If

    End Sub

    Private Sub MessageWindow_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        Me.isOpened = False
    End Sub


End Class